home *** CD-ROM | disk | FTP | other *** search
/ IRIX Base Documentation 2002 November / SGI IRIX Base Documentation 2002 November.iso / usr / share / catman / p_man / cat3 / f90 / pxfischr.z / pxfischr
Encoding:
Text File  |  2002-10-03  |  2.8 KB  |  68 lines
  1. PXFISCHR(3F)                                          Last changed: 1-22-99
  2.  
  3.  
  4. NNAAMMEE
  5.      PPXXFFIISSCCHHRR - Tests for character special file
  6.  
  7. SSYYNNOOPPSSIISS
  8.      LLOOGGIICCAALL FFUUNNCCTTIIOONN PPXXFFIISSCCHHRR((_m))
  9.      IINNTTEEGGEERR _m
  10.  
  11. IIMMPPLLEEMMEENNTTAATTIIOONN
  12.      UNICOS, UNICOS/mk, and IRIX systems
  13.  
  14. SSTTAANNDDAARRDDSS
  15.      IEEE standard interface for FORTRAN 77
  16.  
  17. DDEESSCCRRIIPPTTIIOONN
  18.      On IRIX systems, this routine is in lliibbffoorrttrraann..ssoo which is linked by
  19.      default when compiling programs with the MIPSpro 7 Fortran 90 compiler
  20.      or when compiling programs with the --ccrraayylliibbss option to the MIPSpro
  21.      F77 compiler.
  22.  
  23.      The logical function PPXXFFIISSCCHHRR checks if a file is a character special
  24.      file. The argument _m should be supplied by the sstt__mmooddee component of
  25.      the ssttaatt structure used by the PPXXFFSSTTAATT(3F) routine.
  26.  
  27.      When using the CF90 compiler or MIPSpro 7 Fortran 90 compiler on
  28.      UNICOS, UNICOS/mk, or IRIX, all arguments must be of default kind
  29.      unless documented otherwise.  On UNICOS and UNICOS/mk, default kind is
  30.      KKIINNDD==88 for integer, real, complex, and logical arguments; on IRIX, the
  31.      default kind is KKIINNDD==44.
  32.  
  33.      The following is a valid argument for this routine:
  34.  
  35.      _m    An integer input variable containing the file mode.
  36.  
  37.      If the file is a character special file, PPXXFFIISSCCHHRR returns a logical
  38.      true, otherwise a logical false is returned.
  39.  
  40. EEXXAAMMPPLLEESS
  41.      In this example, PPXXFFSSTTAATT is called on //ddeevv//ttttyy, which should be a
  42.      character special file. After PPXXFFIINNTTGGEETT(3F) returns the mode of
  43.      //ddeevv//ttttyy, PPXXFFIISSCCHHRR is called to check the mode of //ddeevv//ttttyy.
  44.  
  45.      program pxftest
  46.      integer jstat,ierror,mode
  47.      logical pxfischr
  48.  
  49.      CALL PXFSTRUCTCREATE('stat',jstat,ierror)
  50.      CALL PXFSTAT('/dev/tty',0,jstat,ierror)
  51.      CALL PXFINTGET(jstat,'st_mode', mode, ierror)
  52.       if (PXFISCHR(mode) .eqv. .TRUE.) then
  53.          print *,'/dev/tty is a character special file.'
  54.       else
  55.          print *,'/dev/tty should be a character special file, but is not.'
  56.       endif
  57.      end
  58.  
  59.      This program may display:
  60.  
  61.           /dev/tty is a character special file.
  62.  
  63. SSEEEE AALLSSOO
  64.      PPXXFFIISSBBLLKK, PPXXFFIINNTTGGEETT(3F), PPXXFFSSTTAATT(3F), PPXXFFSSTTRRUUCCTTCCRREEAATTEE(3F)
  65.  
  66.      _A_p_p_l_i_c_a_t_i_o_n _P_r_o_g_r_a_m_m_e_r'_s _L_i_b_r_a_r_y _R_e_f_e_r_e_n_c_e _M_a_n_u_a_l for the printed
  67.      version of this man page.
  68.